Saves the recordset as a DBF file

DBF.SaveRS (FileName as String, RS as Variant, [FieldsFormat as String = From recordset])
á

Where	Type	Optional	Default	Description
áFileNameá	áStringá	á	áá	áDBF file nameá
áRSá	áVariantá	á	áá	áADO or DAO recordset to saveá
áFieldsFormatá	áStringá	áyesá	áFrom recordsetá	áFormat of field as array (see remarks)á

Parameter FieldsFormat :
Array("Name1", "Type1", Size1, Decimal1,"Name2", "Type2", Size2, Decimal2 ...)
where
Name is name of the field
Type is DBF datatype, one of :
áC character
áN Numeric
áL Logical
áD Date
Size is field size for character and numeric fields
Decimal is number of decimal places for numeric fields

Save table from ADOSamples	á
'Create RecordSet and DBF objects Set ADORS = CreateObject("ADODB.Recordset") Set DBF = CreateObject("RSConvert.DBF") 'Open table ADORS.Open "Customers", "DSN=ADOSamples" 'Save table to the disk DBF.SaveRS "c:\dbfexport\Custo", ADORS 'Close recordset ADORS.Close ADORS.Open "Products", "DSN=ADOSamples" DBF.SaveRS "c:\dbfexport\Products", ADORS ADORS.Close

GetFile, SaveRS

Compress, CurrencyDecimal, CurrencyWidth, DoubleDecimal, DoubleWidth, IntegerWidth, LongVarCharWidth, RowCount, SingleDecimal, SingleWidth, TempDirectory